home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
yerk
/
mps231ss.hqx
/
Mops source
/
System source
/
alertQ
next >
Wrap
Text File
|
1992-09-17
|
657b
|
20 lines
\ ALERT" - Mops version.
\ This was standard in Neon 2.0, but I'm making it optional in Mops, since
\ my opinion is that a "proper" application should really have customized
\ alert boxes. But if you need something quick and dirty, use this.
\ We've also changed over to a resourced-based alert box for alert".
\ The resources are ALRT 900 and DITL 900, in the file Mops.rsrc. If you
\ use alrt" in an application, these resources will automatically be
\ included in the application by Install.
: (AL") \ ( n type -- )
(lit-str) 3 pick NIF 2drop 2drop EXIT THEN
(al) ;
: ALERT"
?comp postpone (AL") ," ; immediate
compile: alertQmod